home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / modules.lha / modules / intuition / intuition.m < prev    next >
Encoding:
Text File  |  2001-12-30  |  12.1 KB  |  582 lines
  1. MODULE 'devices/keymap','exec/ports','graphics/clip','graphics/gfx','graphics/rastport',
  2.        'graphics/text','intuition/screens','intuition/sghooks','utility/tagitem'
  3.  
  4. OBJECT Menu
  5.   NextMenu:PTR TO Menu,
  6.   LeftEdge:WORD,
  7.   TopEdge:WORD,
  8.   Width:WORD,
  9.   Height:WORD,
  10.   Flags:UWORD,
  11.   MenuName:PTR TO BYTE,
  12.   FirstItem:PTR TO MenuItem,
  13.   JazzX:WORD,
  14.   JazzY:WORD,
  15.   BeatX:WORD,
  16.   BeatY:WORD
  17.  
  18. CONST MENUENABLED=1,
  19.     MIDRAWN=$100
  20.  
  21. OBJECT MenuItem
  22.   NextItem:PTR TO MenuItem,
  23.   LeftEdge:WORD,
  24.   TopEdge:WORD,
  25.   Width:WORD,
  26.   Height:WORD,
  27.   Flags:UWORD,
  28.   MutualExclude:LONG,
  29.   ItemFill:LONG,
  30.   SelectFill:LONG,
  31.   Command:BYTE,
  32.   SubItem:PTR TO MenuItem,
  33.   NextSelect:UWORD
  34.  
  35. CONST CHECKIT=1,
  36.     ITEMTEXT=2,
  37.     COMMSEQ=4,
  38.     MENUTOGGLE=8,
  39.     ITEMENABLED=16,
  40.     HIGHFLAGS=$C0,
  41.     HIGHIMAGE=0,
  42.     HIGHCOMP=$40,
  43.     HIGHBOX=$80,
  44.     HIGHNONE=$C0,
  45.     CHECKED=$100,
  46.     ISDRAWN=$1000,
  47.     HIGHITEM=$2000,
  48.     MENUTOGGLED=$4000
  49.  
  50. OBJECT Requester
  51.   OlderRequest:PTR TO Requester,
  52.   LeftEdge:WORD,
  53.   TopEdge:WORD,
  54.   Width:WORD,
  55.   Height:WORD,
  56.   RelLeft:WORD,
  57.   RelTop:WORD,
  58.   ReqGadget:PTR TO Gadget,
  59.   ReqBorder:PTR TO Border,
  60.   ReqText:PTR TO IntuiText,
  61.   Flags:UWORD,
  62.   BackFill:UBYTE,
  63.   ReqLayer:PTR TO Layer,
  64.   ReqPad1[32]:UBYTE,
  65.   ImageBMap:PTR TO BitMap,
  66.   RWindow:PTR TO Window,
  67.   ReqImage:PTR TO Image,
  68.   ReqPad2[32]:UBYTE
  69.  
  70. CONST POINTREL=1,
  71.     PREDRAWN=2,
  72.     NOISYREQ=4,
  73.     SIMPLEREQ=16,
  74.     USEREQIMAGE=$20,
  75.     NOREQBACKFILL=$40,
  76.     REQOFFWINDOW=$1000,
  77.     REQACTIVE=$2000,
  78.     SYSREQUEST=$4000,
  79.     DEFERREFRESH=$8000
  80.  
  81. CONST GD_LEFTEDGE=4
  82.  
  83. OBJECT Gadget
  84.   NextGadget:PTR TO Gadget,
  85.   LeftEdge:WORD,
  86.   TopEdge:WORD,
  87.   Width:WORD,
  88.   Height:WORD,
  89.   Flags:UWORD,
  90.   Activation:UWORD,
  91.   GadgetType:UWORD,
  92.   GadgetRender:LONG,
  93.   SelectRender:LONG,
  94.   GadgetText:PTR TO IntuiText,
  95.   MutualExclude:LONG,
  96.   SpecialInfo:LONG,
  97.   GadgetID:UWORD,
  98.   UserData:LONG
  99.  
  100. OBJECT ExtGadget OF Gadget
  101.   MoreFlags:ULONG,
  102.   BoundsLeftEdge:WORD,
  103.   BoundsTopEdge:WORD,
  104.   BoundsWidth:WORD,
  105.   BoundsHeight:WORD
  106.  
  107. CONST GFLG_GADGHIGHBITS=3,
  108.     GFLG_GADGHCOMP=0,
  109.     GFLG_GADGHBOX=1,
  110.     GFLG_GADGHIMAGE=2,
  111.     GFLG_GADGHNONE=3,
  112.     GFLG_GADGIMAGE=4,
  113.     GFLG_RELBOTTOM=8,
  114.     GFLG_RELRIGHT=16,
  115.     GFLG_RELWIDTH=$20,
  116.     GFLG_RELHEIGHT=$40,
  117.     GFLG_RELSPECIAL=$4000,
  118.     GFLG_SELECTED=$80,
  119.     GFLG_DISABLED=$100,
  120.     GFLG_LABELMASK=$3000,
  121.     GFLG_LABELITEXT=0,
  122.     GFLG_LABELSTRING=$1000,
  123.     GFLG_LABELIMAGE=$2000,
  124.     GFLG_TABCYCLE=$200,
  125.     GFLG_STRINGEXTEND=$400,
  126.     GFLG_IMAGEDISABLE=$800,
  127.     GFLG_EXTENDED=$8000,
  128.     GACT_RELVERIFY=1,
  129.     GACT_IMMEDIATE=2,
  130.     GACT_ENDGADGET=4,
  131.     GACT_FOLLOWMOUSE=8,
  132.     GACT_RIGHTBORDER=16,
  133.     GACT_LEFTBORDER=$20,
  134.     GACT_TOPBORDER=$40,
  135.     GACT_BOTTOMBORDER=$80,
  136.     GACT_BORDERSNIFF=$8000,
  137.     GACT_TOGGLESELECT=$100,
  138.     GACT_BOOLEXTEND=$2000,
  139.     GACT_STRINGLEFT=0,
  140.     GACT_STRINGCENTER=$200,
  141.     GACT_STRINGRIGHT=$400,
  142.     GACT_LONGINT=$800,
  143.     GACT_ALTKEYMAP=$1000,
  144.     GACT_STRINGEXTEND=$2000,
  145.     GACT_ACTIVEGADGET=$4000,
  146.     GTYP_GADGETTYPE=$FC00,
  147.     GTYP_SYSGADGET=$8000,
  148.     GTYP_SCRGADGET=$4000,
  149.     GTYP_GZZGADGET=$2000,
  150.     GTYP_REQGADGET=$1000,
  151.     GTYP_SIZING=16,
  152.     GTYP_WDRAGGING=$20,
  153.     GTYP_SDRAGGING=$30,
  154.     GTYP_WUPFRONT=$40,
  155.     GTYP_SUPFRONT=$50,
  156.     GTYP_WDOWNBACK=$60,
  157.     GTYP_SDOWNBACK=$70,
  158.     GTYP_CLOSE=$80,
  159.     GTYP_BOOLGADGET=1,
  160.     GTYP_GADGET0002=2,
  161.     GTYP_PROPGADGET=3,
  162.     GTYP_STRGADGET=4,
  163.     GTYP_CUSTOMGADGET=5,
  164.     GTYP_GTYPEMASK=7,
  165.     GTYP_SYSTYPEMASK=$F0,
  166.     GTYP_WDEPTH=$40,
  167.     GTYP_SDEPTH=$50,
  168.     GTYP_WZOOM=$60,
  169.     GTYP_SUNUSED=$70,
  170.     GMORE_BOUNDS=1,
  171.     GMORE_GADGETHELP=2,
  172.     GMORE_SCROLLRASTER=4
  173.  
  174. OBJECT BoolInfo
  175.   Flags:UWORD,
  176.   Mask:PTR TO UWORD,
  177.   Reserved:ULONG
  178.  
  179. CONST BOOLMASK=1
  180.  
  181. OBJECT PropInfo
  182.   Flags:UWORD,
  183.   HorizPot:UWORD,
  184.   VertPot:UWORD,
  185.   HorizBody:UWORD,
  186.   VertBody:UWORD,
  187.   CWidth:UWORD,
  188.   CHeight:UWORD,
  189.   HPotRes:UWORD,
  190.   VPotRes:UWORD,
  191.   LeftBorder:UWORD,
  192.   TopBorder:UWORD
  193.  
  194. CONST AUTOKNOB=1,
  195.     FREEHORIZ=2,
  196.     FREEVERT=4,
  197.     PROPBORDERLESS=8,
  198.     KNOBHIT=$100,
  199.     PROPNEWLOOK=16,
  200.     KNOBHMIN=6,
  201.     KNOBVMIN=4,
  202.     MAXBODY=$FFFF,
  203.     MAXPOT=$FFFF
  204.  
  205. OBJECT StringInfo
  206.   Buffer:PTR TO UBYTE,
  207.   UndoBuffer:PTR TO UBYTE,
  208.   BufferPos:WORD,
  209.   MaxChars:WORD,
  210.   DispPos:WORD,
  211.   UndoPos:WORD,
  212.   NumChars:WORD,
  213.   DispCount:WORD,
  214.   CLeft:WORD,
  215.   CTop:WORD,
  216.   Extension:PTR TO StringExtend,
  217.   LongInt:LONG,
  218.   AltKeyMap:PTR TO KeyMap
  219.  
  220. OBJECT IntuiText
  221.   FrontPen:UBYTE,
  222.   BackPen:UBYTE,
  223.   DrawMode:UBYTE,
  224.   LeftEdge:WORD,
  225.   TopEdge:WORD,
  226.   ITextFont:PTR TO TextAttr,
  227.   IText:PTR TO UBYTE,
  228.   NextText:PTR TO IntuiText
  229.  
  230. OBJECT Border
  231.   LeftEdge:WORD,
  232.   TopEdge:WORD,
  233.   FrontPen:UBYTE,
  234.   BackPen:UBYTE,
  235.   DrawMode:UBYTE,
  236.   Count:BYTE,
  237.   XY:PTR TO WORD,
  238.   NextBorder:PTR TO Border
  239.  
  240. CONST IG_LEFTEDGE=0
  241.  
  242. OBJECT Image
  243.   LeftEdge:WORD,
  244.   TopEdge:WORD,
  245.   Width:WORD,
  246.   Height:WORD,
  247.   Depth:WORD,
  248.   ImageData:PTR TO UWORD,
  249.   PlanePick:UBYTE,
  250.   PlaneOnOff:UBYTE,
  251.   NextImage:PTR TO Image
  252.  
  253. OBJECT IntuiMessage
  254.   Execmessage:MN,
  255.   Class:ULONG,
  256.   Code:UWORD,
  257.   Qualifier:UWORD,
  258.   IAddress:LONG,
  259.   MouseX:WORD,
  260.   MouseY:WORD,
  261.   Seconds:ULONG,
  262.   Micros:ULONG,
  263.   IDCMPWindow:PTR TO Window,
  264.   SpecialLink:PTR TO IntuiMessage
  265.  
  266. OBJECT ExtIntuiMessage
  267.   IntuiMessage:IntuiMessage,
  268.   TabletData:PTR TO TabletData
  269.  
  270. CONST IDCMP_SIZEVERIFY=1,
  271.     IDCMP_NEWSIZE=2,
  272.     IDCMP_REFRESHWINDOW=4,
  273.     IDCMP_MOUSEBUTTONS=8,
  274.     IDCMP_MOUSEMOVE=16,
  275.     IDCMP_GADGETDOWN=$20,
  276.     IDCMP_GADGETUP=$40,
  277.     IDCMP_REQSET=$80,
  278.     IDCMP_MENUPICK=$100,
  279.     IDCMP_CLOSEWINDOW=$200,
  280.     IDCMP_RAWKEY=$400,
  281.     IDCMP_REQVERIFY=$800,
  282.     IDCMP_REQCLEAR=$1000,
  283.     IDCMP_MENUVERIFY=$2000,
  284.     IDCMP_NEWPREFS=$4000,
  285.     IDCMP_DISKINSERTED=$8000,
  286.     IDCMP_DISKREMOVED=$10000,
  287.     IDCMP_WBENCHMESSAGE=$20000,
  288.     IDCMP_ACTIVEWINDOW=$40000,
  289.     IDCMP_INACTIVEWINDOW=$80000,
  290.     IDCMP_DELTAMOVE=$100000,
  291.     IDCMP_VANILLAKEY=$200000,
  292.     IDCMP_INTUITICKS=$400000,
  293.     IDCMP_IDCMPUPDATE=$800000,
  294.     IDCMP_MENUHELP=$1000000,
  295.     IDCMP_CHANGEWINDOW=$2000000,
  296.     IDCMP_GADGETHELP=$4000000,
  297.     IDCMP_LONELYMESSAGE=$80000000,
  298.     CWCODE_MOVESIZE=0,
  299.     CWCODE_DEPTH=1,
  300.     MENUHOT=1,
  301.     MENUCANCEL=2,
  302.     MENUWAITING=3,
  303.     OKOK=1,
  304.     OKABORT=4,
  305.     OKCANCEL=2,
  306.     WBENCHOPEN=1,
  307.     WBENCHCLOSE=2
  308.  
  309. OBJECT IBox
  310.   Left:WORD,
  311.   Top:WORD,
  312.   Width:WORD,
  313.   Height:WORD
  314.  
  315. OBJECT Window
  316.   NextWindow:PTR TO Window,
  317.   LeftEdge:WORD,
  318.   TopEdge:WORD,
  319.   Width:WORD,
  320.   Height:WORD,
  321.   MouseY:WORD,
  322.   MouseX:WORD,
  323.   MinWidth:WORD,
  324.   MinHeight:WORD,
  325.   MaxWidth:UWORD,
  326.   MaxHeight:UWORD,
  327.   Flags:ULONG,
  328.   MenuStrip:PTR TO Menu,
  329.   Title:PTR TO UBYTE,
  330.   FirstRequest:PTR TO Requester,
  331.   DMRequest:PTR TO Requester,
  332.   ReqCount:WORD,
  333.   WScreen:PTR TO Screen,
  334.   RPort:PTR TO RastPort,
  335.   BorderLeft:BYTE,
  336.   BorderTop:BYTE,
  337.   BorderRight:BYTE,
  338.   BorderBottom:BYTE,
  339.   BorderRPort:PTR TO RastPort,
  340.   FirstGadget:PTR TO Gadget,
  341.   Parent:PTR TO Window,
  342.   Descendant:PTR TO Window,
  343.   Pointer:PTR TO UWORD,
  344.   PtrHeight:BYTE,
  345.   PtrWidth:BYTE,
  346.   XOffset:BYTE,
  347.   YOffset:BYTE,
  348.   IDCMPFlags:ULONG,
  349.   UserPort:PTR TO MP,
  350.   WindowPort:PTR TO MP,
  351.   MessageKey:PTR TO IntuiMessage,
  352.   DetailPen:UBYTE,
  353.   BlockPen:UBYTE,
  354.   CheckMark:PTR TO Image,
  355.   ScreenTitle:PTR TO UBYTE,
  356.   GZZMouseX:WORD,
  357.   GZZMouseY:WORD,
  358.   GZZWidth:WORD,
  359.   GZZHeight:WORD,
  360.   ExtData:PTR TO UBYTE,
  361.   UserData:PTR TO BYTE,
  362.   WLayer:PTR TO Layer,
  363.   IFont:PTR TO TextFont,
  364.   MoreFlags:ULONG
  365.  
  366. CONST WFLG_SIZEGADGET=1,
  367.     WFLG_DRAGBAR=2,
  368.     WFLG_DEPTHGADGET=4,
  369.     WFLG_CLOSEGADGET=8,
  370.     WFLG_SIZEBRIGHT=16,
  371.     WFLG_SIZEBBOTTOM=$20,
  372.     WFLG_REFRESHBITS=$C0,
  373.     WFLG_SMART_REFRESH=0,
  374.     WFLG_SIMPLE_REFRESH=$40,
  375.     WFLG_SUPER_BITMAP=$80,
  376.     WFLG_OTHER_REFRESH=$C0,
  377.     WFLG_BACKDROP=$100,
  378.     WFLG_REPORTMOUSE=$200,
  379.     WFLG_GIMMEZEROZERO=$400,
  380.     WFLG_BORDERLESS=$800,
  381.     WFLG_ACTIVATE=$1000,
  382.     WFLG_RMBTRAP=$10000,
  383.     WFLG_NOCAREREFRESH=$20000,
  384.     WFLG_NW_EXTENDED=$40000,
  385.     WFLG_NEWLOOKMENUS=$200000,
  386.     WFLG_WINDOWACTIVE=$2000,
  387.     WFLG_INREQUEST=$4000,
  388.     WFLG_MENUSTATE=$8000,
  389.     WFLG_WINDOWREFRESH=$1000000,
  390.     WFLG_WBENCHWINDOW=$2000000,
  391.     WFLG_WINDOWTICKED=$4000000,
  392.     WFLG_VISITOR=$8000000,
  393.     WFLG_ZOOMED=$10000000,
  394.     WFLG_HASZOOM=$20000000,
  395.     SUPER_UNUSED=$FCFC0000,
  396.     DEFAULTMOUSEQUEUE=5
  397.  
  398. OBJECT NewWindow|NW
  399.   LeftEdge:WORD,
  400.   TopEdge:WORD,
  401.   Width:WORD,
  402.   Height:WORD,
  403.   DetailPen:UBYTE,
  404.   BlockPen:UBYTE,
  405.   IDCMPFlags:ULONG,
  406.   Flags:ULONG,
  407.   FirstGadget:PTR TO Gadget,
  408.   Checkmark:PTR TO Image,
  409.   Title:PTR TO UBYTE,
  410.   Screen:PTR TO Screen,
  411.   BitMap:PTR TO BitMap,
  412.   MinWidth:WORD,
  413.   MinHeight:WORD,
  414.   MaxWidth:UWORD,
  415.   MaxHeight:UWORD,
  416.   Type:UWORD
  417.  
  418. OBJECT ExtNewWindow OF NW
  419.   Extension:PTR TO TagItem
  420.  
  421. CONST WA_Left=$80000064,
  422.     WA_Top=$80000065,
  423.     WA_Width=$80000066,
  424.     WA_Height=$80000067,
  425.     WA_DetailPen=$80000068,
  426.     WA_BlockPen=$80000069,
  427.     WA_IDCMP=$8000006A,
  428.     WA_Flags=$8000006B,
  429.     WA_Gadgets=$8000006C,
  430.     WA_CheckMark=$8000006D,
  431.     WA_Title=$8000006E,
  432.     WA_ScreenTitle=$8000006F,
  433.     WA_CustomScreen=$80000070,
  434.     WA_SuperBitMap=$80000071,
  435.     WA_MinWidth=$80000072,
  436.     WA_MinHeight=$80000073,
  437.     WA_MaxWidth=$80000074,
  438.     WA_MaxHeight=$80000075,
  439.     WA_InnerWidth=$80000076,
  440.     WA_InnerHeight=$80000077,
  441.     WA_PubScreenName=$80000078,
  442.     WA_PubScreen=$80000079,
  443.     WA_PubScreenFallBack=$8000007A,
  444.     WA_WindowName=$8000007B,
  445.     WA_Colors=$8000007C,
  446.     WA_Zoom=$8000007D,
  447.     WA_MouseQueue=$8000007E,
  448.     WA_BackFill=$8000007F,
  449.     WA_RptQueue=$80000080,
  450.     WA_SizeGadget=$80000081,
  451.     WA_DragBar=$80000082,
  452.     WA_DepthGadget=$80000083,
  453.     WA_CloseGadget=$80000084,
  454.     WA_BackDrop=$80000085,
  455.     WA_ReportMouse=$80000086,
  456.     WA_NoCareRefresh=$80000087,
  457.     WA_BorderLess=$80000088,
  458.     WA_Activate=$80000089,
  459.     WA_RMBTrap=$8000008A,
  460.     WA_WBenchWindow=$8000008B,
  461.     WA_SimpleRefresh=$8000008C,
  462.     WA_SmartRefresh=$8000008D,
  463.     WA_SizeBRight=$8000008E,
  464.     WA_SizeBBottom=$8000008F,
  465.     WA_AutoAdjust=$80000090,
  466.     WA_GimmeZeroZero=$80000091,
  467.     WA_MenuHelp=$80000092,
  468.     WA_NewLookMenus=$80000093,
  469.     WA_AmigaKey=$80000094,
  470.     WA_NotifyDepth=$80000095,
  471.     WA_Obsolete=$80000096,
  472.     WA_Pointer=$80000097,
  473.     WA_BusyPointer=$80000098,
  474.     WA_PointerDelay=$80000099,
  475.     WA_TabletMessages=$8000009A,
  476.     WA_HelpGroup=$8000009B,
  477.     WA_HelpGroupWindow=$8000009C,
  478.     HC_GADGETHELP=1
  479.  
  480. OBJECT Remember
  481.   NextRemember:PTR TO Remember,
  482.   RememberSize:ULONG,
  483.   Memory:PTR TO UBYTE
  484.  
  485. OBJECT ColorSpec
  486.   ColorIndex:WORD,
  487.   Red:UWORD,
  488.   Green:UWORD,
  489.   Blue:UWORD
  490.  
  491. OBJECT EasyStruct
  492.   StructSize:ULONG,
  493.   Flags:ULONG,
  494.   Title:PTR TO UBYTE,
  495.   TextFormat:PTR TO UBYTE,
  496.   GadgetFormat:PTR TO UBYTE
  497.  
  498. #define MENUNUM(n) ((n) & $1F)
  499. #define ITEMNUM(n) (((n)>>5) & $3F)
  500. #define SUBNUM(n)  (((n)>>11) & $1F)
  501.  
  502. #define SHIFTMENU(n) ((n) & $1F)
  503. #define SHIFTITEM(n) (((n) & $3F)<<5)
  504. #define SHIFTSUB(n)  (((n) & $1F)<<11)
  505.  
  506. #define FULLMENUNUM(menu,item,sub) (SHIFTSUB(sub)|SHIFTITEM(item)|SHIFTMENU(menu))
  507.  
  508. #define SRBNUM(n)  (8-((n)>>4))
  509. #define SWBNUM(n)  (8-((n) & $F))
  510. #define SSBNUM(n)  (1+((n)>>4))
  511. #define SPARNUM(n) ((n)>>4)
  512. #define SHAKNUM(n) ((n) & $F)
  513.  
  514. CONST NOMENU=31,
  515.     NOITEM=$3F,
  516.     NOSUB=31,
  517.     MENUNULL=$FFFF,
  518.     CHECKWIDTH=19,
  519.     COMMWIDTH=27,
  520.     LOWCHECKWIDTH=13,
  521.     LOWCOMMWIDTH=16,
  522.     ALERT_TYPE=$80000000,
  523.     RECOVERY_ALERT=0,
  524.     DEADEND_ALERT=$80000000,
  525.     AUTOFRONTPEN=0,
  526.     AUTOBACKPEN=1,
  527.     AUTODRAWMODE=1,
  528.     AUTOLEFTEDGE=6,
  529.     AUTOTOPEDGE=3,
  530.     AUTOITEXTFONT=0,
  531.     AUTONEXTTEXT=0,
  532.     SELECTUP=$E8,
  533.     SELECTDOWN=$68,
  534.     MENUUP=$E9,
  535.     MENUDOWN=$69,
  536.     MIDDLEUP=$EA,
  537.     MIDDLEDOWN=$6A,
  538.     ALTLEFT=16,
  539.     ALTRIGHT=$20,
  540.     AMIGALEFT=$40,
  541.     AMIGARIGHT=$80,
  542.     AMIGAKEYS=$C0,
  543.     CURSORUP=$4C,
  544.     CURSORLEFT=$4F,
  545.     CURSORRIGHT=$4E,
  546.     CURSORDOWN=$4D,
  547.     KEYCODE_Q=16,
  548.     KEYCODE_Z=$31,
  549.     KEYCODE_X=$32,
  550.     KEYCODE_V=$34,
  551.     KEYCODE_B=$35,
  552.     KEYCODE_N=$36,
  553.     KEYCODE_M=$37,
  554.     KEYCODE_LESS=$38,
  555.     KEYCODE_GREATER=$39,
  556.     TABLETA_Dummy=$8003A000,
  557.     TABLETA_TabletZ=$8003A001,  -> Data for this tag is unsigned INT
  558.     TABLETA_RangeZ=$8003A002,
  559.     TABLETA_AngleX=$8003A003,
  560.     TABLETA_AngleY=$8003A004,
  561.     TABLETA_AngleZ=$8003A005,
  562.     TABLETA_Pressure=$8003A006,
  563.     TABLETA_ButtonBits=$8003A007,
  564.     TABLETA_Inproximity=$8003A008,
  565.     TABLETA_ResolutionX=$8003A009,
  566.     TABLETA_ResolutionY=$8003A00A
  567.  
  568. OBJECT TabletData
  569.   XFraction:UWORD,
  570.   YFraction:UWORD,
  571.   TabletX:ULONG,
  572.   TabletY:ULONG,
  573.   RangeX:ULONG,
  574.   RangeY:ULONG,
  575.   TagList:PTR TO TagItem
  576.  
  577. OBJECT TabletHookData
  578.   Screen:PTR TO Screen,
  579.   Width:ULONG,
  580.   Height:ULONG,
  581.   ScreenChanged:LONG
  582.